home *** CD-ROM | disk | FTP | other *** search
/ Amiga Plus 2000 #4 / Amiga Plus CD - 2000 - No. 4.iso / Tools / Dev / powerd / lib / powerd_lib.lha / PowerD / Colour.ass < prev    next >
Encoding:
Text File  |  1999-06-23  |  298 b   |  21 lines
  1. ; d0 - apen
  2. ; d1 - bpen
  3.  
  4.     xdef    _Colour
  5.  
  6. _Colour    move.l    d0,coloura
  7.     tst.l    _stdrast
  8.     beq.s    .exit
  9.     move.l    _stdrast,a1
  10.     move.l    _GfxBase,a6
  11.     move.l    d1,-(a7)
  12.     jsr    -342(a6)        ; SetAPen()
  13.     move.l    _stdrast,a1
  14.     move.l    (a7)+,d0
  15.     jsr    -348(a6)        ; SetBPen()
  16. .exit    rts
  17.  
  18.     xref    _GfxBase
  19.     xref    _stdrast
  20.     xref    coloura
  21.